home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).adf / AE / AE.mod < prev    next >
Text File  |  1989-07-03  |  771b  |  36 lines
  1. (* AE C 1990 by Matthias Gutt, Kantstr. 16, W-2120 Lüneburg 
  2.    Das Programm AE rechnet eine astronomische Einheit(= 149,5 Mio. km
  3.    in Kilometer um. *)
  4.    
  5.  MODULE AE;
  6.  FROM SYSTEM IMPORT ADR;
  7.  FROM RealInOut IMPORT ReadReal,WriteReal;
  8.  FROM InOut IMPORT WriteLn,WriteString;
  9.  
  10.  
  11.  VAR
  12.   Eingabe,AE,Ausgabe: REAL;
  13.       
  14.   BEGIN
  15.    WriteLn;
  16.    WriteString("AE - Copyright 1990 by Matthias Gutt * Kantstr.16 * W-2120");
  17.    WriteString("Lüneburg ");
  18.    WriteLn;
  19.    WriteString("Geben Sie bitte die Anzahl Astronomischer Einheiten ein !");
  20.    WriteLn;
  21.    WriteString("AE: ");ReadReal(Eingabe);
  22.    WriteLn;
  23.   AE:=Eingabe*149.5;
  24.   Ausgabe:=AE;  
  25.   WriteString ("Ergebnis:  "); WriteReal(Ausgabe,3,4); WriteString ("Mio.   km.");
  26.   WriteLn;
  27.  
  28. END AE.
  29.  
  30.   
  31.      
  32.    
  33.    
  34.    
  35.    
  36.